Type TrackInformation

	Field id:Int
	Field name:String
	Field artist:String
	Field album:String
	Field genre:String
	Field discNumber:Short
	Field discCount:Short
	Field trackNumber:Short
	Field trackCount:Short
	Field year:Short
	Field trackUrl:String
	Field imageUrl:String

	Function fromTrack:TrackInformation(t:TrackInformation)
		Local newT:TrackInformation = New TrackInformation
		newT.id          = t.id
		newT.name        = t.name
		newT.artist      = t.artist
		newT.album       = t.album
		newT.genre       = t.genre
		newT.discNumber  = t.discNumber
		newT.discCount   = t.discCount
		newT.trackNumber = t.trackNumber
		newT.trackCount  = t.trackCount
		newT.year        = t.year
		newT.trackUrl    = t.trackUrl
		newT.imageUrl    = t.imageUrl
		Return newT
	End Function

	Method ToString:String()
		Return name  ..
			+ " - "  ..
			+ artist ..
			+ " ("   ..
			+ year   ..
			+ ", "   ..
			+ album  ..
			+ ")"
	End Method

End Type
